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PDP-G LISP (LISP 1.6) 

TMs Is a mosaic description of PDP-6 LISP, intended for readers familiar 
with the LISP 1.5 Pro grammar 1 s Manual or who have used LISF on seen* ether 
computer. Many of the features* such as the display s are subject to change. 
Thus, consult a PDP-6 systems programmer for any differences which may exist 
between LISP of Oct. 14* 196* and present LISF on the system tape. 

SOME DISTINCTIVE CHARACTERISTICS 

Top-level input is to EVAL; there Is no EYALQUCTE, 

Thus LISF 1 * listen loop may he described by 

(PROG MIL 

A (TERFRI) 

(PRIMT {EVAL (READ) )) 

(GO A)) 

One types ATOM followed by a space to get the value of ATOM* 
or (FN (QUOTE argl) (QUOTE argi)...) to apply a function to 
explicit arguments. For this reason h users frequently arrange 
their top-level functions to be FElCFRs or FSUBRs to avoid the 
necessity of quoting explicit arguments. Alternatively* they 
nay SETQ atoms to frequently-used or unwieldy argument lists, 
and apply their functions to these atoms. 

(EQUAL fixed-point-number floating-point^number) is MIL. 

(ZERO? 0.0) is MIL. {EVAL T) is T. (EVAL KIL) is MIL. 

*T* and. F do not exist. 

There is no a-list. Current bindings of Interpreted variables 
end free compiled variables ate stored in the CDR of the 
variable 1 ® VALUE property, which is also the variable’s 
SPECIAL tell. 

Their values may be changed with SET and SETQ; and CSETQ 
die not exist. Higher-level bindings of these variables are 
stored on the special pushdown list. 

All interpreted variables and free compiled variables are 
automatically SPECIAL and provide complete communication 
between compiled and interpreted functions. COMMOH does not 
exist. 

Flagg are not allowed; elements on a property list of an 
atom are expected to be paired. 
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XAP, MAPCAR t etc, assume the f irsj. argument Ik etift 
function* and the second is the list of ergursents to 
which it is to t?e applied \ 

There is no DEFINE■ defining of functions is usually 
done with defprjAP. 

The available input-output devices are the on-line 
teletype, the EECtapcs, the vldlsettor* the display 
and thE Zinc printer. For their use, see 

H, Ifipwt-Oi? tppt". 

One may allocate as much as one wishes (within limits) 
of each type of LIEF storage each time LISP is started. 
See '’Allocator" for how to use this feature - 

The characters space* tab and comma ate treated ident¬ 
ically and are used to separate items on a list, and to 
distinguish dot-notation periods from periods denoting 
floating-point or decimal numbers. A sequence of spaces, 
commas, or tats is equivalent to a single one. Spaces* 
COrtrtas, Of tabs adjacent to parentheses have no effect. 


Obj ect 


Indicator Relevant Information 


AES 

SUfiR 

AUDI 

£!JBR 

Allocater 

a/ 


V 


0/ 


d/ 


0/ 


Absolute value. 

Result is fixed or floating;* satis as 
argument. 

There are five storage areas In LISP: 

Free Storage: holds s-expressions 
Full Word Space: holds character strings of 
print names, floating point and large fixed- 
point numbers (see " Kursb er s 1 ') . 

Binary Program Spacer h,old,s compiled functions 
and arrays. 

Special Pushdown List; holds higher-level 
bindings of all special variables. 

Regular Pushdown List t holds return addresses 
for sub-routine calls-* bindings of all local 
variables, and is also used by various internal 
routines. 




3 , 


AMD 

APPEND 


^APPEND 

APPLY 

ARRAY 


When LISP is lfls.de.i3, the Allocator types out 
ALLOC? and waits for the u&ar to type ¥ (yes) 
or N (no?* If Y IS typed t the A]Lotatop tflspOnds 
with IfQfVQiF- and waits for the user to type an 
octal number tended with a carriage return) 
which LISP will take as the highest avaiable 
register of memory* The Allocator then simil¬ 
arly requests typed-in parameters for the siKfl 
of Full Word Space. Binary Program Space, 

Special Pushdown List* and Regular Pushdown List. 

Free Storage is given all remaining space. For 
any typed-in number, carriage return alone nay 
bo typed in and a standard value will he taken: 

MEMTQP 3717$ (hopefully this will 

FULL WHS 4$3 change soon) 

BIN.FROG,SF, 10$$ 

SP&C.PDL i&m 

REG -PDL 1000 

If M is typed as the. response to ALLOC? all 
standard values are taken* In ease of error, 

RUBDUT will type on K and cancel the current 
value* The Allocator is wiped out hy ebe_£ira£ 
garbage collection;, thus a restartedT isf may 
not bo reallocated. 

FS1JBR Returns NIL or last non-Nil argument; 

does not evaluate arguments past first NIL. 

LSUBR Appends together any number of arguments„ 
copying the top level of ail but the last 
of them. (APPEND) is NIL and (APPEND X) is 
EQ to X. 

SUER APPEND cf two arguments. 

LSbER (APPLY fn (args)> or (APPLY fn (args) alist)* 

FSDER (ARRAY name par diml dim2 = ,,) sets up namo 

as an array (actually as a SUBR). par 
should bo T to protect array elements from 
garb are collection; NIL otherwise, (name 
Indsl indsi ..,) returns the value of the 
specified element. (STORE (naae indul ind>t2 
► . .) value) sets the element to value. 



4 , 


AJtG 

ASSOC 

SAKGAG 


BASE 

Binary 

BOOLE 


SUER 

SUER 

SUER 


(N STORE (narse indxl indr:£ ,.,) number) 
deposits the loiMnder 18 bits of the 
num ber in the array. Bath STORE and 
NBTQRE evaluate their second argument 
before their first. An array may have 
no mote than five dimensions' indites 
run from t> to dim-1. 

See LSUBR. 


Uses Bq. 

CBAKGAG T) enables a backtrace of any 
LISP error except pushdown list overflew; 
(BAKflAG NIL) disables It, A backtrace 
Is printed as a series ef function tails 
as determined from the regular pushdown 
list, most recent first: 


fill-fn2 
f n L-EYALARG5 


fnl-ENTER 
?-fni 


fnl calls fn2 
arguments being eval¬ 
uated preparatory to 
calling fnl 
fnl being evaluated 
? represents an internal 
routine 


VALUE Current radix of fixed-point number 
output; may be modified with SETQ H 


Program Spate Storage area in LI5F for compiled functions and 

arrays; usually is registers long* 

LSGBR {BOOLE n a b c Causes a 36-bit 

bitwise Boolean operation to be performed 
on a and b, on the result and c, etc. The 
number rs selects the operation as follows: 
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n 

Opera E ion. 

n 

operation 

0 

. 0 

LO 

u. b 

1 

a+b 

11 

a=h 

2 

tr+b 

12 

75" 

3 

b 

13 

if vb 

4 

a.F 

14 

¥ 

5 

a 

15 

a vF 

6 

a yb 

lb 

a" vF 

7 

a vb 

17 

I 


RPEND 

VALUE 

Highest location available for use 
as Binary Program Space. 

BFORC 

VALUE 

Current lowest unused Location in 

Binary Program Spate. 

CAR 

SUER 

Left Half, CAR of an atom is the 
"pointer" - 1< 

CDR 

SUER 

Right half. CPR of an atom Is Its 
property list. 

CAAR, CADR etc. 

through ClJEEER 


SUERS 

arty combination of up to 4 D'$ and A h s. 

CURCT 

VALUE 

Number of character apaces remaining in 
Current output line. If CKRCT is 0 and 


LISP is to output a character, it first 
outputs a carriage-return—line-feed and 
resets C9RCT to LIWEL (£.v.). 

Compiler The Cnnpiler ia a collection of SUBRa not available 

in regular PDP-6 LI$P, hut rather in a a pedal version 
on the System tape as tbc file LISP COMP. To compile 
functions froti iPECtape* load the file LISP COJIP* type 
(UREA.D naaeJ naraelj &n tape number tapeno . select 
DECtape Output if desired, not forgetting to specify 
on output tape with (UWRITE tapeno) , type (CHP1) and 
then select DECtape input. {See " Input-Output rr ). When 
the Compiler is finished, file the output if DECtape 
output was selected. The Compiler Outputa each function 
in LAP-readable machine language. {See "LAP"). 



conn 


FSCBR 


cons 

Current P sot Lems 


DECtapes 
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"COWD pairs 1 ' of predicate and value 
may have other than two elements- If 
the predicate evaluates ncm-NIL, the 
temalhlng: elements are evaluated in 
CAR-tO-CUK order, and the value of the 
last is the value of the CONP, If there 

is only one element, its value, if non- 

NIL, is the value of the COND, If no 

predicate Is true, the value of the COND 
is NIL. 

SUER One of the five elementary functions of 

LISP. 

Compiled GOs and RETURN? happen when 
encountered; interpreted GOs and RETURNS 
happen when evaluation of the functions 
they arc contained in (except PROG} is 
completed T Argument* to GO are repeatedly 
evaluated until atomic when Interpreted, 
but are evaluated only once when compiled- 
Compiled GOs and RETURNS must appear 
explicitly in the PROG to which they apply. 
GOs and RETURNS occasionally confuse the 
compiler when appearing in compositions of 
functions other than PROG, COMP, AND, OR, 
and HOT. Variables used free in a functional 
context must be declared SPECIAL or else the 
compiler will ini stake them for undefined 
EKPIts or SUBfts. 

To select DECtape Input, specify a file by 
using the function UREAD, then type or 
evaluate (IOC Q) or set the value of +Q to T. 
To deselect DECtape input, type or eval¬ 
uate (IOC S) or set the value of ifj to NIL* 

To select DECtape outputi specify an output 
tape with UWRITE, type or evaluate (IOC r) 
or set the value of IR to 1+ To file output 
use DFILE. To deselect DECtape output, type 
Zr or evaluate (IOC T) or set the value of 
tR to NIL. See UF1LE, OKILL, DREAD, WRITE. 

(DEFFRQP atom property indicator) ; value is 
atom. 


DEFFROP 


FSU3R 
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DEPOSIT 

DIFFERENCE 

*DIF 

DISAD 

DISCWT 

DIS-HII 

DIS1IST 

Biaplay 


EQ 


SL'&ft Causes the fixed-point number which is 

Its second argument to he deposited In 
the absolute machine location which, is 
its first argumentr 

LBUM argl - arg2 “ erg3 ... (DIFFERENCE) is 0, 

SUM DIFFERENCE of two argumsnts. 

SUM See "Display". 

VALUE Sec ''Display 11 , 

SUER See ’’Display", 

VALUE See "Display". 

The display is different from other output devices in 

that PRIST and related functions cannot send outputs 
to the display. Instead, text is displayed from LISP 
e it rays which are on the Dl&Ll&T* To plate test on the 
display, first perform (DI5INI {QUOTE arraynamc)) which 
initial ice s element jj of the array to a character mode 
entry and the retaining elements to escape characters, 
destroying the previous contents of the array. Put this 
array On the DI5LI5T with a (SETQ DISLIST (LIST GET 
(QUOTE atraynane) QUOTE 5UBR)})), More than one array 
can he put on the DI5LI5T, but if they have all been 
UISEhlVd, they will Overprint on the display. To avoid 
this, or to use the display In other than character code 
use N5T0RE C^.v.). To put tent in an array. (BI3AD(QUGTE 
arraynamc) par arg) in effect performs a PRIN1 or DRIhC 
{according as par la ncn-NIL or NIL) of arg into the 
specified array. In other w^rds* the text of an s- 
expression is appended to the text ourrantly in soch an 
array. DI5CNI is for the display what CfIRCT is for all 
Other output devices" when it reaches icro. DI5AD inserts 
a carriage-return-line-feed In the text being put in an 
array and resets it to LINHL. 


Will wiorh for atoms and positive fixed-point 


numbers less than about otherwise use 

EQUAL. LV 


- 1 

f 


$Uf3R 
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floating point numbers are EQUAL only If 
they are exactly equal* To compare a 
fixed to a floating—point number, first 
float the former by performing (PLUS fixed- 
point number (1-0)* 

fates 0 or 1 argument* Causes a non-printing 
LISP error condition: the argument of ERR lor 
NIL* if there is none) is returned as the value 
of the most recent ERR5ET, 

(ERRSET (fn arg ...)) has the value K1L (but see 
ERR, aboye) if an error occurs while evaluating 
(fa ay.gs ,**), end the value of (U)t (fn arga *,*)] 
_bcherwis¥j. Option al se-concT a r gum ant !■ l pfiiEi lt ^ 

.. i *nr4t7:' error messSjffl printout* 4 ..._*• 

EVAL LSUiJK .If A" AAcStid afgflBSKt - is' given ’ it is"used 

instead of the present C| p a-*liet ,r . (EVAL 
number) is that nuaber * In enteying a 
function, arguments are evaluated from left 
to right* (EVAL atom) is (CDR (GET (QUOTE 
atom) (QUOTE VALUE))), unless there is no 
VALUE property or the above computation 
returns the pseudo-atom UNSOUND, in which 
case a LISP error occurs and the offending 
atom fs printed, followed by the message 
"UHEOUND VARIABLE - EVAL." (EVAL x) where 
x. is non^atomic and (CAR x) is atomic 
proceeds as follows} the interpreter 
determines (CETL (QUOTE CAR x) (QUOTE(SUER 
EXPR FSUER FEfliPR LSUBR MACRO))}* or, if 
this la NIL, (EVAL (CAB xj). If x has no 
VALUE property, a LISP error occurs and x is 
printed with the message "UNDEFINED FUNCTION*" 

Having found a function, it then evaluates its 
arguments if appropriate and applies the 
function to them. When (CAR x) is non-atomit 
it immediately evaluates the list of arguments 
f.e., (CDR x). It then compares (CAAR x) to 
LAMBDA, tfABEL and FUb'ARG, taking appropriate 
action in each case. Failing this, it applies 
(EVAL (CAR x)) to the members of (CDR x)* 


EQUAL 


ERR 


ERRSET 


SUER 


LSCTBR 


FSUBR 
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EXAMINE 

EXPLODE 

EXPLODE 

EXFR 

FEXRR 

FIX 

Fixwra 

FIXIA 

FLITSI Zt 
FLONUR 

Free 5tor-age: 


SUER Argument As nuiaber, which is taken as 

absolute machine address; value is 
contents of said address as a fixed 
point number. 

SUER Argument is £-expression; value is list 

of at Li as whose print names are single char¬ 
acter 3 3 which concatenated would form the 
print name of the argument* For example^ 
(EXPLODE (QUOTE F00>> has the value (F 0 O), 
EXPLODE like PRLN1* inserts slashes s so 
(EXPLODE (QUOTE (QUOTE FOG/BAR)) PRINT’a 
as (FOG// / H A R) or PRItfC’s as 
(F 0 0 / BAR)*. 

SLTBR. EXPLODEC is to EXPLODE as PRIHC is to FRISl. 

Example(EXPLQDEC (QUOTE FW/BAR)) w^uld 
PftINl as (F 0 0 / EAR) or FRINC as 
(F 0 0 BAR)* 

Indicator for a-expreasion function. 

Indicator for s-expression special form. Its 
lambda-list may have one or two members; the 
second is bound to the current ’'a-list, 11 

SOBR Argument is a fixed or fLootf.U£-pOittt number; 

value is truncated fixed-point value of 
argument* 

Indicator for a fixed-point number. Sen 
"Numbers 11 * 

SYM (PUSHJ P FIXIA) Turns the actual fixed point 

number in 1 into a LISP number., (f.v. 

SUBR (LENGTH (EXFLODE arg)) 

Indicator for floating-point number. See 
"Numbers"* 

Storage area in LISP for s-expressiona* Takes 
all memory which is free after the four other 
storage areas have been allocated* gee 
"Allocator". 




FS'JER 
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full n'or;] Space 


FUKARG 


FUNCTION 


*FUNCTIDN 


Indicator For apecial-form subroutine; 
the ne-xt pointer on the property list 
points to the first Instruction £n the 
routine. To use the current "a-liat 1 ' 
a FSUBR must call *AMARE T which leaves 
a pointer to same in 2 t 

Storage area in LISF for character strings 
of print names, floating-point ounbera, and 
negative fixed-point numbers, and large 
pos it ive f ixed-po in t ruumb er s . 

One of the three indicators the interpreter 
looks for when evaluating a non—atonic 
s^expression with a non-atoede CAR. 

To the interpreter, has the same effect as 
QUOTE. To the compiler, cauaea compilation 
of its argument. 

Causes FUJTARG binding when encountered; 
otherwise identical to FUNCTION. 


CC 


G3SNSYM 

GET 


SUER 


SUER 

SURR 


Takes no argusae nt a, cauaea a garbage coll¬ 
ection, and returns NIL. To cause typeout 
of garbage collector statistics, type £ 

To inhibit this typeout, type ^ 

3 G0002, etc* 

(LAH&QA (A »} 

(OOND{ (NULL {CUR A )) Rll,) 

{{£Q (CAM A) b) (CAEDR A)) 
((GET (CDBR A) E)))) 

A typical use. (GET {QUOTE 3tom? {QUOTE 
indicator}}, would return the property if 
it was found or JAIL. If the property could 
be NIL, an amiguity could result in the 
s ecu Lid c rise. 


i 



GETL 


5U13R 
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GO 


GREATER? 

•GREAT 
I BASE 

Input-Output 


P5UBR 


Similar ta GET bat second argument is 
a list of indicators, The value returned 
is either ML (indicating no property 
with any of the desired indicators was 
found) or such that (CAR (GET! . ..)) is 
the indicator, (CADE (GETL,,,)) is the 
property, and (CEDE (GET! **♦}) is the 
rest of the property List, GETL, ilka 
GET stops at the first Satisfactory pair 
cn the property list . 

If argument is nor-atonic, it is repeatedly 
evaluated unt 1L it is atomic. However, see 
" Cutren L Prob l.em S ", 


LSUER Takes any floater of -arguments i return* T 

only if argl > arg2 > arg3 , , return* 
S'JEE NIL otherwise, -GREATER? of two arguments* 

VALUE Radin of fixed-point number input. May be 

modified with SETQ, 

The input-output devices available to LISP are the 
on-line Teletype, the DECtapee* the vidisectcr, the 
display, and the line printer. Input from the 
Teletype and the OJ?G tapes 1* through the function 
READ; typing ££ or evaluating (IOC Q) or 
3ETQ'itlg the atom 4Q to T will cause LECtape input to 
be selected; no further s-CKprCSsions will he read 
from the Teletype until an end-of-flle is rea4 from 
tape, /S is typed, [IOC S) is evaluated, or +Q is 

SETQ’ed to MIL, Input from the vidisector is through 

the function VIP I, j£,v. There, arc- similar switches for 
the Teletype, the EECtapes, and the line 
printer on output, which are shown in the summary 
below, Output to the display is from arrays in memory 
through the functions LISINI, DISAD and the value 
DISLIST+ See "Pisplay", lira DECtape routines must 
be given name* of input files and number? of output 
tapes be for* KCtape input-out put Can be done. For 
this purpose, the functions GREAEj TOtITE, UFTLE and 
UK ILL are provided, § e e rl DEGt a pes"*, 
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Summary r 


Device 

Input 

through 

Output 

Select Deselect through Select 

Deselect 

Teletype READ 


(Default 

option) PRINT 0V 

MJ 

DECtape READ 



#5 PRINT fB 

tfT 

Line printer 



PRINT 0B 

tfE 

Display 



See ’’Display” 


Vidirector VTDT 

When the above control characters are typed* they are 
not seen by READ, but are seen by READCE, See also 
IOC, ICC Display, DECCapes, Teletype, Line Printer* 
and VXD!. 


IHTEEU 


mvy. 


roc 


roc 


LABEL 

LAMBDA 


SL'BR Argument is pointer to Atom Structure; puts 

said atom on OBLIST and returns (probably new) 
atom pointer- 

SYM The largest fixed-point number which assy be 

represented by no more list structure than a 
’’pointer” one larger than itself. 

PSTJBR Identical to typing the characters in its 

arguments with the control key held. Its 
value is it$ argument list, 

SCTB3. Saves up the current state of all i~o switches* 

performs TOC of the value of its first argument* 
evaluates its second argument which is of the 
form {FUNCTION atgs> then restores the i-o switches 
to their former states. 

One of the indicators which FVAL looks for when 
evaluating an s-expression with a non-atosdc CAR. 

One of the three indicators EVAL looks for when 
evaluating an s-expresalon whose CAR is nan-atomic. 
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LAP 


LAF Is not part of the LJSP an, the system tape, but rather 
as a file of s-expreseions on the System tape as file # LAP. 
{LAP name indicator), where the Indicator ia SUBS, FSUBR, or 
L$U{SR t causes LAF to call READ repeat ally* each time reading 
Ofie tag Or e borage word. An atom is talten as a t&g, except 
for J1IL which indicates the end of the function being read; 
a non-atomic g-expresalon is taken as a storage word in either 
the format {Inst Acc Adr) or the format {Inst Acc Adr Indx). 
Inst should be a PEP-6 instruction Mnemonic* optionally suf¬ 
fixed @ {e.g. HLR2£) for the indirect bit. Acc should be a 
number from 0 - 17, or F, the regular pushdown pointer, Adr 
may be a numeric, machine address, s tsg in that function, a 
negative number* one of certain Symbols for entry points to 
LISP internal routines, or a list in one of the following 
forms; {QUOTE atom) for a pointer to atom ; (SPECIAL atom) for 
a pointer to atom r s special cell (which Is the CDR of the 
VALUE property); (E atom) for a pointer to the name of a 
function being called; or {C w X y J;) for a pointer to a 
constant, i.e,* a storage word containing (v x y z). Indx 
is an optional left- alf quantity, such as an index register 
specification* of the same form ae Act ■ The beat way to get a 
hand-coded function into the System ie with LAP. A SUBS may 
have no more th&n 5 arguments* the values of which are placed 
in accumulators 1 through 5 when the SUER is called. A 
pointer to the argument list of an FEUEE is in I. The 
arguments of an L&L'fiR are on the regular pushdown list, last 
on top, and - (number of arguments) is in b. Accumulators 
1 through 7 are the QbLT accumulators available far use 
within a subroutine, which is expected to return Its value 
in accumulator 1. (Pirsiu P a AMAKE) will return a pointer to 
the ’'a-list 1 ' in accumulator 2, 

Thus, a typical usage of LAP to get a hand-coded 
Into the system would be; 

{1.AP AES SUER) 

(FUSHJ P NUMYAL) 

CHQVMS 0 1) 

(JCALL 2 (E &EAKSUM)) 

KIL 

Four UUO (trap) instructions are available for LAP: CALL, 
JCALL, CALLF and JCALLF* These art to be used for function 
calls Ih the form {CALL n {E fn)) where, n is as follows t 
3 through S, calling a SUEE or EX?F with 0 to 5 arguments; 
lb octal, calling LSUSE with arguments on pushdown list and 
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LAST 

LENGTH 

LESS? 

*LESS 

Line printer 

LINEL 

LIST 

L5H 

LSUER 


- Cnun.ber of arguments) Ln accumulator 6; 

17 octal, calling an F&URR or FEKpR with pointer to argument 
list in 1. 

When one. of these UUOa is first *netuted, the UUO handler will 
call the interpreter if calling an EXFR nr FEXPR, otherwise In 
the Cams of a CALLF or JCALLF will execute a PUSH! or JRST, 
respectively, to the specified function* and in the case of CALL 
or JCALI, will execute the FL'SHJ nr JEST but in additon will 
change the WO to a PUSHJ nr JUST unless (NO UUO T) has been 
evaluated. 

The F forms are necessary to call functions whose names are 
computed; the J fonts save code in the case of (RETURN (fn ...)). 

SUER (LAMBDA (A) 

(CQHD ((ATOM (CUR A)) A) 

((LAST (CDR A)))) 

SUER (LAMBDA (A) 

(COHD ((ATOM A) 0) 

((AUDI (LENGTH (CERA))))}) 

LSUER Takes any number of arguments, returns T only if 

axgl *arg2 ^arg3 < < < etc.* and NIL otherwise. 

SUER LESS? of two arguments. 

Output to Che line printer may be 

selected by typing ^ oi setting IB to T t and 

deselected by typing nr setting t-B to NIL* 

VALUE That number of characters which will be output 

before the LISP output functions will insert a 
carrtagC-'TOturn-line-feed and reset CHRCT to 
LIHEL. LINE! may be modified by SETO* 

FSUBFt (LAMBDA (A) {MAFCAR (FUNCTION EVAL) A)) 

SURR Logical left Shift of the value of the first 

argument by n places, where n^ is the value of 
the second argument, which may be negative. 

Indicator for subroutine function which may take 
any number of arguments which are placed on the 
regular push down list, last on top. The negative 
tturaber of arguments is placed in accumulator 6, In 
an s —expressi on function, the notation (LAMBDA var * 


/ 



MACDHR 


MACRO 
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L$UfiS 


SUER 


where the "LAMBDA-l1st n is aft a to®, indicates 
that the variable uor is to be hound to the 
number of arguments, and the values of the 
arguments may be gotten by calling (ARC 1) 

(ARG 2)*etc* 

With no arguments, causes a garbage collection, 
zeroes the free storage list, waits for all 
output to finish, and transfers control to 
MACDMP. If an ergur.ent is given* the FRINC of 
it Is given to MACDMR as a coumiand * 


Indicator of a MACRO property, simulated by the 
interpreter and expanded at Compile time> The 
property should be a function of one argument* 

When a Call to this function is encountered, the 
list which is the function call (l,e,, CAR of it 
is the function name) is fed to the macro defini¬ 
tion as the one argument, Then the MACRO property 
function is expanded, for example e 


(DEFPROP COM3CONS 

(LAMBDA (A) 

(COND 


MACRO} 


((HULL (CDHR A)) (CADR A)} 
((LIST (QUOTE CONS) 

(CAIiR A) 

(CONS (CAR A) 

(CDDR A)])))) 


would cause (OOHSCONS M C) to expand first, to 
(CONS A (COHRCOHS £ 0)}, then to (CONS A (COK5 B 
(CON3COHS C))>* snd finally to (CONS A (CQKS B C>), 
which is what would be interpreted or compiled. 


Argument Is list of atoms whose print names are 
single characters (actually it cakes the first 
character of each print name); value is pointer 
to s-expression which if printed out, would bo 
the concatenation of the single characters which 
were its arguments. 


Turns the pointer which is its first argument 
into a LISP fixed - or floating-point number, 
according as whether its second argument evaluates 
to FIJTNUM or FLONUM, 


KAKKUM 


SUER 
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HAP C 

StlBR 

First argument la function; second is 
argument list. Returns NIL. does no 

CDNSes. 

MAFCAR 

SUER 

First argument is function; argument is 

S-CCond, 

MAPLIST 

SL'BR 

Function is first argument; areunent list is second 

MEMBER 

SUER 

Uses EQUAL 

MEMO 

sub g 

Like >£EMBER + But uses EQ. 

MINUS 

SUER 

— (argument). 

MINUS? 

SUER 

Returns T If argument is less than 

NCONC 

LSUBR 

Takes any number of arguments. (NCQNC) is 

NIL. (NCQNC x) is EQ fp x. 

KOOKS 

SUER 

(LAMBDA (A) (COWS A NIL}) 

MIL 

FALUE 

False value of predicates* explicitly 
tested for by COND* (ftVAL NIL) is NIL 
(NIHIL ex nlhilo). (HAKHUM NIL (QUOTE 

FIXNUM) is ft, NIL ends lists. 

NOT 

SL'BR 

Identical in value Co NULL. 

woiruo 

SL'BR 

(NOUUO T) prohibits the UUO handler from 
changing CALLs and JCAILs to PUSH!a and 

JRSTa, enabling tracing of the functions 
so called, (NOUUO NIL) restores that 
ability. 

NSTORE 

FSUER 

(NSTORE (name tndxl indx2 ...) numbtr) 
deposits the low-order IE bits of number 
in the specified cell in the array name, 

N5T0RE evaluates its second argument first. 

NULL 

SUER 

Identical in value to NUT. 

KLXBERF 

SUBS. 

Returns T if ita argument is a number; 

NIL otherwise. 

Numb r.T s 

Positive fixed-point numbers less than about 4000 decimal 
are represented by '’pointer a" one greater than their value 
and no further list structure. Floating-point numbers and 
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HVMVAL 

QBLIST 

OFS 

OS 

PLUS 

FNAME 

PRINC 

PRIOT 


cither fixed-point numbers are represented by at ecu 
Structures whose property List contains a pointer 
to either one indicator FIKITCH or the Indicator 
FLAKUW, and a pointer to a word in Full Word Space 
containing the actual number. For numeric input t 
see READ* Numeric Output for f loating-point is 
decimal; Otherwise, is in radix BASE, and if that 
radix is 10 decimal, LISP wiLL end the number with 
a decimal point unless *N0F(JINT has been set to T* 

The arithmetic functions (except SINUS) take any 
number of arguments, and use fixed-point arithmetic 
until the first floating-point operand is encountered t 
at which time the currant result and all succeeding 
fitted-point operands are floated, and the result is 
floating-point . 

5YH (FUSHJ P HUH7AL) with a LISP number in 1 

returns a machine number In 1, 

VALUE The object list, a List of buckets of atoms. 

FEXPR or FSUBR Part of LAP. Takes pairs of 

arguments of the form sym value. , gives 
each SVm a STM property of value . 

PSU&R Takes arty number of argumOnts; returns 

first non-NIL argument or NIL; docs not 
evaluate arguments past the one it returns^ 

LSFBR argl + arg2 4- arg3 >.. 

Indicator for print nemo property. The 
property is a list of pointers to words 
in full word Space Containing the actual 
character string. 

SIH5R Prints any s-expression; does not insert 

slashes before characters which must be 
quoted with a Slash on type-in. PRINC 
does not print a apace before or after 
■what it prints. 

3WR Identical to (FRQG2 (TERPRI) (PRIN1 arg> 

PRINC (QUOTE / ))), 



FRIHl 

SUER 

PROG 

FSUBR 

PR0G2 

8L/&R 

PUTPROP 

SU&R 

Quit 

QUOTE 

F5UER 

QUOTIENT 

LSURR 

READ 

SUER 


Prints any ^expression; ingots slashes- 
before characters which would Ctfterwiee 
be syntactically incorrect: 35 part o£ an 
atom's print name, such as + 3 ( 3 etc. 

Evaluates each member of its argument* 
disregarding its value. Enables the 
writing of ALGOL-like programs in LISP. 

Returns the value of Che second of fever 
than seven arguments. 

Puts the value of its second argument on 
the property list of the value of its 
ftrsC argument with the indicator which is 
the value of its third argument, 

A user may quit at any time by typinfl^Cfbcll) 
or evaluating {IOC G). This returns L3$P 
to the top level instantly without, however* 
emptying input or output buffers, 

Except that it is an FSUER, identical to GAR, 

arg.1 / arg2 / arg3 f at g4 

Reads one a-expression from the currently 
selected input device; see "Input-Output”, 

A number without a decimal point is assumed 
to be in radiK BASE, a number with digits 
only to the left of a decimal point is 
assumed to be a fiited-poirtt decimal number; 
a number itfith digits on both sides of a 
decimal point Is assumed to he a decimal 
floating-point number. Typing a xubout 
will rub out the last S-Cxprusaion if the 
last character typed was space, ), corns, 
or tab; will rub out the last ( if (was 
the last character typed;; otherwise will 
rub out the last atom fragment typed. Any 
character which would otherwise be syntact¬ 
ically incorrect as part of an atom's print 
name, such as an initial digit or ( or ., 
may be quoted with the character f . f itsalf 
may be quoted this way T Thu various characters 
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RIADCtt 

READLIST 
Regular Push 

REMLAP 

EH»B 

REMPROP 

RETURN 

REVERSE 

RTLACA 

RRLACD 

BA&SOC 

SET 


which control LESF's Input-output switches 
may also be quoted this way, but will still 
have their usual effect* Unless SO quoted., 
these characters are net seen by READ, 

RUHR Reads one character free, the selected input 

device [ see ri Input-Out put". The various 
characters which control LISP'a input-output 
switches are seen and treated as any other 
characters, hut still have thetr usual effects, 

SUER Similar to tfAKKA^ ^,v, ± ^ ut automatically EKTERNs 

any atoms appearing in the resulting s-enpression. 

Down List Storage area in LISP containing returns for function calls 

and bindings of ail local variables. Normally contains 

1##$ registers. 

FEKPR Part of LAP. REMOBs all functions associated 

with LAP. With an optional argument of T, rerwivad 
the SYH property of all atoms which possess it, 

FSUBR Take any number of atomic arguments; removes them 

from the OhLIST and returns NIL* 

SUER Removes the property with Che indicator which 

is the value of its second argument from the atom 
which is the value of its first argument. Returns 
T if the property was there* and NIL otherwise. 

SUER See "Current Problems"* 

SUER Reverses the top level of a list, using COVE. 

SUER Replaces CAR of the value Of its first argument 

with the value of its second argument. 

SUER Replaces CDR of the value of its first argument 

with the value of its second argument. 

SUER Uses EQ, 

SUER Causes the value of its second argument to bo 

placed, with RPLACD* in CDR of the 7ALITE property 
of the value of its first argument, 




20 . 


SETQ 

FSUER 

(SET (QUOTE argl) arg2). 

SETTIHE 

SUER 

Seta (TIME) counter to value of its argument. 

SPEAK 

SUER 

Take® no arguments* returns current value of 
00N& counter* 

SPECEIRE 

SYM 

(PUSHJ P SPECBIND) (0 p varl) (0 n varZ),,* 
causes the current binding of the special 
variables varl and var 2 to be saved up on 
the Special Push Down List, and causes varl 
to be bound to NIL and var2 to bo bound to 
the contents of accumulator n. 

SPECIAL 

FEXFR 

Part of the compiler. Declares all of the 


atoms which are in its list of arguments to 
bo SPECIAL. However, all free variables in 
compiled functions are automatically special* 
Thera is no UN5FECIAL; use (RETRO? (QUOTE atom) 
(QUOTE SFECIAL). 


Special Push Down List Storage are in LESF where higher-level bindings of 

special variables are Etorcd, [formally 10$0 registers long. 


SPECSTR SYM 

STORE FSUER 

SUBR 

SUBST BURR 

SL1B1 SUER 

STM 

T VALUE 


(PUSH! F SPECSTR) restores most recem batch 
of special variable bindings* 

(STORE (naoe indxl indrZ ***} value) sets 
the value of the specified cell in the stray 
name to the value va - lue, See '’ARRAY 1 ', 
Evaluated its second argument first. 

Indicator for subroutine function property. 
Property is pointer to first instruction in 
routine. 

Uses CQNSea, Use (SUBST 0 0 arg) to copy 
the value of arg . 

Value Is fixed or floating* same as argument. 

Indicator for symbol value property. Used by 
LAP. 

True value of predicates. (EVAL T) is T 
(Veritas numquam perit). 
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Teletype 

TTRFRI 

TIME 

TIMES 

TiO 

UFILE 

MILL 

L'READ 

WRITE 


Teletype input is automatically selected when no other 
input is selected, thjtput is initially selected, but 
may be deselected by typing £*?. by Evaluating [EQC W) 

Of by setting the value of fW to T. It may be reselected 
by typing di evaluating ^IOC V), or by setting the value 
of +W to tflL, 

StJbR Takes no arguments; prints a carriage- 

retum-line-feed > and returns HIL. 

3UBR Returns,, is a fixed-point number, the 

number of sixtieths of a second LlSP has 
bEon running sihee the last call to 
&FrTTHK> plus the last argu»*nt to frETTII-lj- , 

L&UE-R argl * arg2 * arg3 . . , 

BtfER Outputs the character whose ASCII value is 

the value of its one argument. 

P5UBR piles all HECtape output which lias happened 

Since the last WRITE or UFILE and files it 
es erfil ar^Z. lias value of Current tap* number, 
or, if file conmand failed, NIL, 

LSUBR There is currently roan in LIS? for only two 

DECtepe filE directories, 17KILL reclaims the 
space used by the directory of the tape whose 
number is its argument if an argument is given, 
otherwise of the current tape. Value is the 
argument or the current tape number. 

FSUBR Takes two or three arguments. First two are 

file name (if file has one name, first argument 
must be ; third is tape number. If third 
argument is not give#* current tape number is 
assumedb The current tape number is Initially 
2. The value of UREAfi is the resultant current 
tape number. 

LSUBR Specifies an output QECtupe, causing previous 

unfiled output to that tape to be forgotten. 

If no argument is given, the current tape is 
assumed. Returns either its argumentor tn the 
current tape number. If the specified tape is 
full, the error message "TAPE FULL 11 will he printed. 


( 
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VALUE 


Indicator Cor value property► The value 
cell/special cell is CDR of the VALUE property. 

YIDI 

SUBR 

TaJcea two fIxed-point numbers as ar&umentsj 
toturns number which is s function o£ bright- 
ness at the point (argl T &rg,2) an the 
Yidissector. (TVfc). 

VidissectoT 

d .v. 

Input 

from the vidtssector is through the function VLDI, 

KCONS 

SU1R 

(CONS arg2 Argl) 

ZERO? 

SUB! 

CZERQP M i» HTLi- 

*AKAEE 

s™ 

CRUSHJ P +AMAKE) returns a pointer to the 
current ’’a-list" in 2. 

fiLCALL 

SEN 

(JSP 3 *LCALL) tn an LSUCR which h^s been 
called by the Interpreter puts the number o£ 
argument's in 1 N and a pointer to the arguments 
on the top of push down list. 

*N0P0LNT 

VALUE 

When set to T* inhibits the printing of 
decimal points after typeout of decimal 

Cumbers. Setting *NOPOTNT to NIL restores 
this typeout. 

*R5ET 

SUER 

(*SS£*r T) inhibit# the rebinding of special 
variables to tOp-l*vel values when & LISP 
error occurs; C+RSET NIL)' permit# this 
rebinding. 



